BBS in a Box 10

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / U-Z / ViewIt 2.2 Shareware.cpt / ViewIt™ 2.2 Shareware / Projects / LS Fortran 3.0 Demos / TutorialLF.f < prev next >
MacBinary | 1993-07-08 | 2.4 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Freeze Frozen Compressed File `(archive/freeze)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MathVISION Formula `(other/mathVISIONFormula)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Jul 8 10:35:42 1993, modified Thu Jul 8 10:35:42 1993, creator 'MPS ', type ASCII, 1770 bytes "TutorialLF.f" , at 0x76a 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 54 75 74 6f 72 69 | 61 6c 4c 46 2e 66 00 00 |..Tutori|alLF.f..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 ea 00 | 00 01 ac a8 61 e1 3e a8 |........|....a.>.|
|00000060| 61 e1 3e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.>.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 95 65 00 00 |........|.....e..|
|00000080| 43 20 4e 4f 54 45 3a 20 | 52 65 61 64 20 74 68 65 |C NOTE: |Read the|
|00000090| 20 22 4d 50 57 20 46 6f | 72 74 72 61 6e 73 22 20 | "MPW Fo|rtrans" |
|000000a0| 73 65 63 74 69 6f 6e 20 | 6f 66 20 22 41 62 6f 75 |section |of "Abou|
|000000b0| 74 20 43 6f 6d 70 69 6c | 65 72 73 22 0d 43 20 62 |t Compil|ers".C b|
|000000c0| 65 66 6f 72 65 20 63 6f | 6d 70 69 6c 69 6e 67 20 |efore co|mpiling |
|000000d0| 4c 46 20 70 72 6f 67 72 | 61 6d 73 20 74 68 61 74 |LF progr|ams that|
|000000e0| 20 75 73 65 20 46 61 63 | 65 57 61 72 65 20 6d 6f | use Fac|eWare mo|
|000000f0| 64 75 6c 65 73 2e 0d 0d | 43 20 54 75 74 6f 72 69 |dules...|C Tutori|
|00000100| 61 6c 20 4c 46 20 44 65 | 6d 6f 6e 73 74 72 61 74 |al LF De|monstrat|
|00000110| 69 6f 6e 20 50 72 6f 67 | 72 61 6d 0d 43 20 a9 46 |ion Prog|ram.C .F|
|00000120| 61 63 65 57 61 72 65 20 | 31 39 39 33 2e 20 20 41 |aceWare |1993.  A|
|00000130| 6c 6c 20 52 69 67 68 74 | 73 20 52 65 73 65 72 76 |ll Right|s Reserv|
|00000140| 65 64 2e 0d 0d 21 21 4d | 20 49 6e 6c 69 6e 65 73 |ed...!!M| Inlines|
|00000150| 2e 66 0d 21 21 49 20 46 | 61 63 65 50 72 6f 63 4c |.f.!!I F|aceProcL|
|00000160| 46 2e 69 6e 63 0d 0d 20 | 20 20 20 20 20 50 52 4f |F.inc.. |     PRO|
|00000170| 47 52 41 4d 20 54 75 74 | 6f 72 69 61 6c 4c 46 0d |GRAM Tut|orialLF.|
|00000180| 09 69 6d 70 6c 69 63 69 | 74 20 6e 6f 6e 65 0d 43 |.implici|t none.C|
|00000190| 20 4e 4f 54 45 3a 20 49 | 66 20 79 6f 75 20 75 73 | NOTE: I|f you us|
|000001a0| 65 20 74 68 65 20 22 21 | 21 47 22 20 64 69 72 65 |e the "!|!G" dire|
|000001b0| 63 74 69 76 65 20 66 6f | 72 20 70 72 65 63 6f 6d |ctive fo|r precom|
|000001c0| 70 69 6c 65 64 20 67 6c | 6f 62 61 6c 73 2c 20 61 |piled gl|obals, a|
|000001d0| 64 64 0d 43 20 6f 75 72 | 20 46 61 63 65 53 74 6f |dd.C our| FaceSto|
|000001e0| 72 4c 46 2e 69 6e 63 20 | 67 6c 6f 62 61 6c 73 20 |rLF.inc |globals |
|000001f0| 74 6f 20 79 6f 75 72 73 | 20 61 6e 64 20 74 68 65 |to yours| and the|
|00000200| 6e 20 72 65 6d 6f 76 65 | 20 66 6f 6c 6c 6f 77 69 |n remove| followi|
|00000210| 6e 67 20 6c 69 6e 65 0d | 09 69 6e 63 6c 75 64 65 |ng line.|.include|
|00000220| 20 27 46 61 63 65 53 74 | 6f 72 4c 46 2e 69 6e 63 | 'FaceSt|orLF.inc|
|00000230| 27 0d 20 20 20 20 20 20 | 72 65 63 6f 72 64 20 2f |'.      |record /|
|00000240| 46 61 63 65 52 65 63 2f | 20 66 52 65 63 0d 20 20 |FaceRec/| fRec.  |
|00000250| 20 20 20 20 63 6f 6d 6d | 6f 6e 2f 46 61 63 65 53 |    comm|on/FaceS|
|00000260| 74 75 66 66 2f 66 52 65 | 63 0d 09 69 6e 74 65 67 |tuff/fRe|c..integ|
|00000270| 65 72 2a 32 20 74 68 65 | 46 6c 61 67 2c 74 68 65 |er*2 the|Flag,the|
|00000280| 4c 69 73 74 49 74 65 6d | 2c 74 68 65 4d 65 6e 75 |ListItem|,theMenu|
|00000290| 49 74 65 6d 0d 09 63 68 | 61 72 61 63 74 65 72 2a |Item..ch|aracter*|
|000002a0| 33 32 20 74 68 65 53 74 | 72 69 6e 67 0d 0d 20 20 |32 theSt|ring..  |
|000002b0| 20 20 20 20 66 52 65 63 | 2e 75 4e 61 6d 65 20 3d |    fRec|.uName =|
|000002c0| 20 27 54 75 74 6f 72 69 | 61 6c 2e 52 73 72 63 27 | 'Tutori|al.Rsrc'|
|000002d0| 0d 20 20 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |.      c|all Face|
|000002e0| 49 74 28 30 2c 44 6f 49 | 6e 69 74 2c 30 2c 30 2c |It(0,DoI|nit,0,0,|
|000002f0| 30 2c 30 29 0d 09 74 68 | 65 46 6c 61 67 20 3d 20 |0,0)..th|eFlag = |
|00000300| 30 0d 09 74 68 65 4c 69 | 73 74 49 74 65 6d 20 3d |0..theLi|stItem =|
|00000310| 20 33 0d 09 74 68 65 4d | 65 6e 75 49 74 65 6d 20 | 3..theM|enuItem |
|00000320| 3d 20 32 0d 09 74 68 65 | 53 74 72 69 6e 67 20 3d |= 2..the|String =|
|00000330| 20 27 48 65 6c 6c 6f 27 | 0d 0d 20 20 20 20 20 20 | 'Hello'|..      |
|00000340| 64 6f 20 77 68 69 6c 65 | 20 28 2e 74 72 75 65 2e |do while| (.true.|
|00000350| 29 0d 20 20 20 20 20 20 | 20 20 63 61 6c 6c 20 46 |).      |  call F|
|00000360| 61 63 65 49 74 28 30 2c | 44 6f 4c 6f 6f 70 2c 30 |aceIt(0,|DoLoop,0|
|00000370| 2c 30 2c 30 2c 30 29 0d | 09 20 20 69 66 20 28 28 |,0,0,0).|.  if ((|
|00000380| 66 52 65 63 2e 75 4d 65 | 6e 75 49 44 20 3d 20 31 |fRec.uMe|nuID = 1|
|00000390| 30 35 29 2e 61 6e 64 2e | 28 66 52 65 63 2e 75 4d |05).and.|(fRec.uM|
|000003a0| 65 6e 75 49 74 65 6d 20 | 3d 20 31 29 29 20 74 68 |enuItem |= 1)) th|
|000003b0| 65 6e 0d 09 20 20 20 20 | 63 61 6c 6c 20 46 61 63 |en..    |call Fac|
|000003c0| 65 49 74 28 30 2c 4e 65 | 77 57 6e 64 2c 31 30 31 |eIt(0,Ne|wWnd,101|
|000003d0| 30 2c 30 2c 30 2c 30 29 | 0d 09 20 20 20 20 63 61 |0,0,0,0)|..    ca|
|000003e0| 6c 6c 20 46 61 63 65 49 | 74 28 30 2c 47 65 74 43 |ll FaceI|t(0,GetC|
|000003f0| 74 6c 2c 31 30 31 30 2c | 30 2c 31 2c 33 29 0d 09 |tl,1010,|0,1,3)..|
|00000400| 20 20 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |    call| FaceIt(|
|00000410| 30 2c 4c 6e 6b 43 74 6c | 2c 66 52 65 63 2e 63 43 |0,LnkCtl|,fRec.cC|
|00000420| 6f 6e 74 72 6f 6c 2c 25 | 6c 6f 63 28 74 68 65 46 |ontrol,%|loc(theF|
|00000430| 6c 61 67 29 2c 32 2c 30 | 29 0d 09 20 20 20 20 63 |lag),2,0|)..    c|
|00000440| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|00000450| 43 74 6c 2c 31 30 31 30 | 2c 30 2c 31 2c 34 29 0d |Ctl,1010|,0,1,4).|
|00000460| 09 20 20 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |.    cal|l FaceIt|
|00000470| 28 30 2c 4c 6e 6b 43 74 | 6c 2c 66 52 65 63 2e 63 |(0,LnkCt|l,fRec.c|
|00000480| 43 6f 6e 74 72 6f 6c 2c | 25 6c 6f 63 28 74 68 65 |Control,|%loc(the|
|00000490| 53 74 72 69 6e 67 29 2c | 2d 33 31 2c 30 29 0d 09 |String),|-31,0)..|
|000004a0| 20 20 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |    call| FaceIt(|
|000004b0| 30 2c 47 65 74 43 74 6c | 2c 31 30 31 30 2c 30 2c |0,GetCtl|,1010,0,|
|000004c0| 31 2c 35 29 0d 09 20 20 | 20 20 63 61 6c 6c 20 46 |1,5)..  |  call F|
|000004d0| 61 63 65 49 74 28 30 2c | 4c 6e 6b 43 74 6c 2c 66 |aceIt(0,|LnkCtl,f|
|000004e0| 52 65 63 2e 63 43 6f 6e | 74 72 6f 6c 2c 25 6c 6f |Rec.cCon|trol,%lo|
|000004f0| 63 28 74 68 65 4c 69 73 | 74 49 74 65 6d 29 2c 32 |c(theLis|tItem),2|
|00000500| 2c 30 29 0d 09 20 20 20 | 20 63 61 6c 6c 20 46 61 |,0)..   | call Fa|
|00000510| 63 65 49 74 28 30 2c 47 | 65 74 43 74 6c 2c 31 30 |ceIt(0,G|etCtl,10|
|00000520| 31 30 2c 30 2c 31 2c 36 | 29 0d 09 20 20 20 20 63 |10,0,1,6|)..    c|
|00000530| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 4c 6e 6b |all Face|It(0,Lnk|
|00000540| 43 74 6c 2c 66 52 65 63 | 2e 63 43 6f 6e 74 72 6f |Ctl,fRec|.cContro|
|00000550| 6c 2c 25 6c 6f 63 28 74 | 68 65 4d 65 6e 75 49 74 |l,%loc(t|heMenuIt|
|00000560| 65 6d 29 2c 32 2c 30 29 | 0d 09 20 20 20 20 63 61 |em),2,0)|..    ca|
|00000570| 6c 6c 20 46 61 63 65 49 | 74 28 30 2c 53 65 74 56 |ll FaceI|t(0,SetV|
|00000580| 61 6c 2c 31 30 31 30 2c | 30 2c 30 2c 30 29 0d 09 |al,1010,|0,0,0)..|
|00000590| 20 20 20 20 64 6f 20 77 | 68 69 6c 65 20 28 2e 74 |    do w|hile (.t|
|000005a0| 72 75 65 2e 29 0d 09 20 | 20 20 20 20 20 63 61 6c |rue.).. |     cal|
|000005b0| 6c 20 46 61 63 65 49 74 | 28 30 2c 4d 64 6c 57 6e |l FaceIt|(0,MdlWn|
|000005c0| 64 2c 31 30 31 30 2c 30 | 2c 30 2c 30 29 0d 09 09 |d,1010,0|,0,0)...|
|000005d0| 69 66 20 28 66 52 65 63 | 2e 75 4d 65 6e 75 49 44 |if (fRec|.uMenuID|
|000005e0| 20 3d 20 31 30 31 30 29 | 20 74 68 65 6e 0d 09 09 | = 1010)| then...|
|000005f0| 20 20 69 66 20 28 66 52 | 65 63 2e 77 63 48 69 74 |  if (fR|ec.wcHit|
|00000600| 20 3d 20 2d 31 29 20 74 | 68 65 6e 0d 09 09 20 20 | = -1) t|hen...  |
|00000610| 20 20 65 78 69 74 0d 09 | 09 20 20 65 6c 73 65 20 |  exit..|.  else |
|00000620| 69 66 20 28 66 52 65 63 | 2e 77 63 48 69 74 20 3d |if (fRec|.wcHit =|
|00000630| 20 31 29 20 74 68 65 6e | 0d 09 09 20 20 20 20 63 | 1) then|...    c|
|00000640| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|00000650| 56 61 6c 2c 31 30 31 30 | 2c 30 2c 30 2c 30 29 0d |Val,1010|,0,0,0).|
|00000660| 09 09 20 20 20 20 65 78 | 69 74 0d 09 09 20 20 65 |..    ex|it...  e|
|00000670| 6c 73 65 20 69 66 20 28 | 66 52 65 63 2e 77 63 48 |lse if (|fRec.wcH|
|00000680| 69 74 20 3d 20 32 29 20 | 74 68 65 6e 0d 09 09 20 |it = 2) |then... |
|00000690| 20 20 20 63 61 6c 6c 20 | 46 61 63 65 49 74 28 30 |   call |FaceIt(0|
|000006a0| 2c 47 65 74 43 74 6c 2c | 31 30 31 30 2c 30 2c 31 |,GetCtl,|1010,0,1|
|000006b0| 2c 38 29 0d 09 09 20 20 | 20 20 66 52 65 63 2e 75 |,8)...  |  fRec.u|
|000006c0| 53 74 72 69 6e 67 20 3d | 20 27 52 75 6e 20 62 75 |String =| 'Run bu|
|000006d0| 74 74 6f 6e 20 77 61 73 | 20 68 69 74 2e 27 0d 09 |tton was| hit.'..|
|000006e0| 09 20 20 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |.    cal|l FaceIt|
|000006f0| 28 66 52 65 63 2e 63 43 | 6f 6e 74 72 6f 6c 2c 31 |(fRec.cC|ontrol,1|
|00000700| 35 36 35 2c 32 2c 30 2c | 30 2c 30 29 0d 09 09 20 |565,2,0,|0,0)... |
|00000710| 20 65 6e 64 20 69 66 0d | 09 09 65 6e 64 20 69 66 | end if.|..end if|
|00000720| 0d 09 20 20 20 20 65 6e | 64 20 64 6f 0d 09 20 20 |..    en|d do..  |
|00000730| 20 20 63 61 6c 6c 20 46 | 61 63 65 49 74 28 30 2c |  call F|aceIt(0,|
|00000740| 45 6e 64 57 6e 64 2c 31 | 30 31 30 2c 30 2c 30 2c |EndWnd,1|010,0,0,|
|00000750| 30 29 0d 09 20 20 65 6e | 64 20 69 66 0d 09 65 6e |0)..  en|d if..en|
|00000760| 64 20 64 6f 0d 09 65 6e | 64 0d 00 00 00 00 00 00 |d do..en|d.......|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000790| 70 01 b0 6d dd 72 6c 0a | 4e ad 04 fa 48 6d 04 fa |p..m.rl.|N...Hm..|
|000007a0| a9 f1 70 02 b0 6d dd 72 | 6c 0a 4e ad 05 02 48 6d |..p..m.r|l.N...Hm|
|000007b0| 0c 54 75 74 6f 72 69 61 | 6c 4c 46 2e 66 4c 02 00 |.Tutoria|lLF.fL..|
|000007c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a9 06 e5 35 00 00 | 00 00 00 00 01 ac 41 20 |.....5..|......A |
|00000800| 2d 20 20 65 72 72 6f 72 | 20 61 63 63 65 73 73 69 |-  error| accessi|
|00000810| 6e 67 20 6c 6f 63 61 6c | 20 73 79 6d 62 6f 6c 20 |ng local| symbol |
|00000820| 74 61 62 6c 65 2e 4e 56 | 00 00 4e ba fe 36 4e 5e |table.NV|..N..6N^|
|00000830| 4e 75 cf 50 54 49 4d 49 | 5a 45 00 00 00 00 17 72 |Nu.PTIMI|ZE.....r|
|00000840| 03 80 00 02 4e 56 ff fe | 3b 6d ba 9a dd 7e 20 6d |....NV..|;m...~ m|
|00000850| dd 82 20 50 30 2d dd 7e | c1 fc 01 1a 12 30 00 ee |.. P0-.~|.....0..|
|00000860| 67 10 42 67 48 6d fe 0e | 4e ad 0e ba 1b 5f bb a2 |g.BgHm..|N...._..|
|00000870| 60 20 42 67 20 6d dd 82 | 20 50 30 2d dd 7e c1 fc |` Bg m..| P0-.~..|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 1e 00 f8 |...H..Mo|naco....|
|00000890| 00 ba 00 00 00 00 00 00 | 00 00 00 48 00 00 00 48 |........|...H...H|
|000008a0| 00 00 00 00 00 08 00 06 | 00 06 00 2b 00 06 01 68 |........|...+...h|
|000008b0| 01 bc 00 2b 00 06 01 68 | 01 bc a8 61 a8 fe 00 00 |...+...h|...a....|
|000008c0| 00 77 00 00 00 77 00 00 | 00 00 01 00 00 00 00 1e |.w...w..|........|
|000008d0| 00 2b 00 06 01 68 01 bc | 00 2b 00 06 01 68 01 bc |.+...h..|.+...h..|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 05 |.....n..|.n...>..|
|00000900| 39 54 05 84 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |9T......|.>..MPSR|
|00000910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 03 f0 ff ff 00 00 00 4c | 00 0b 37 a4 00 00 00 00 |.......L|..7.....|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+